home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.10
/
demo
/
vdx.i
/
vd5.i
< prev
next >
Wrap
Text File
|
1995-04-19
|
2KB
|
83 lines
{ vd5.i }
Function VD5 : String;
Const
ObjectPoints : ARRAY[0..32] OF Short = { Punkt-Tabelle }
(
8,
100, 400, 0, 0,
0, 300, 0, 0,
0, 200, 0, 0,
200, 100, 0, 0,
200,-100, 0, 0,
0,-200, 0, 0,
-200,-100, 0, 0,
-200, 100, 0, 0
);
ObjectAreas : ARRAY[0..15] OF Short = { Flächen-Tabelle }
(
1,
8,1, 0*4,1*4,2*4,3*4,4*4,5*4,6*4,7*4,2*4, 0,0,0,0
);
ObjectMove : ARRAY[0..21] OF Short =
(
200, 0, 0, 42, 2,0,1, { Positionierung und Animationspfad }
300, 0, 0, 0, 1,3,1,
200, 0, 0,-52, 2,1,4,
{ Zeit, move-x,-y,-z, rotx,roty,rotz, }
END_1
);
MyColTab : ARRAY[0..32] OF Short = { Farbtabelle }
(
0, 0, 0, 0, { Register, Rot,Grün,Blau }
1, 8, 8,15,
2, 13,13, 0,
3, 12,12, 0,
4, 3,13, 3,
5, 2,12, 2,
6, 8, 8, 8,
7, 14,14,14,
-1
);
BEGIN
MyObject.Point_Data := Adr(ObjectPoints);
MyObject.Area_Data := Adr(ObjectAreas);
MyObject.Move_Table := Adr(ObjectMove);
MyWorld.flags := 1;
MyWorld.first := Adr(MyObject);
{ "Animationsscreen" öffnen }
MyViewStruct := OpenVScreen( Adr(MyVScreen) );
IF MyViewStruct = NIL THEN
BEGIN
VD5 := "Argh - wieder kein Chipmem!";
END;
Error := SetColors( MyViewStruct, Adr(MyColTab) ); { Farben setzen }
Error := AutoScaleOn( MyVScreen.ViewModes ); { Entzerrung für höhere Auflösung }
Error := DoAnim( Adr(MyWorld) ); { Auf zur Animation!! }
Error := CloseVScreen(); { Bildschirm schließen }
VD5 := "Schöne Grüße nach Frankfurt !";
END;